lapop12 = readRDS('data/lapop12.rds')

#### trimming exercise #### 

m1 = lm_robust(soc.cl_bin ~ trial + q1 + q2, 
               data = subset(lapop12, coup_support>0),
               fixed_effects = estratopri + estratosec)

m2 = lm_robust(torture_bin ~ trial + q1 + q2, 
               data = subset(lapop12, coup_support>0),
               fixed_effects = estratopri + estratosec)

m3 = lm_robust(b1 ~ trial + q1 + q2, 
               data = subset(lapop12, coup_support>0),
               fixed_effects = estratopri + estratosec)

texreg::texreg(list(m1, m2, m3), include.ci = F, 
               stars = c(.001, .01, .05, .1), 
               symbol = '\\dagger')
